home *** CD-ROM | disk | FTP | other *** search
- %. japanese cut marks
- save
- imgr storerect
- clpr /cliptop xdf /clipright xdf /clipbottom xdf /clipleft xdf
- left bleed sub clipleft sub abs xs mul 1 le
- bottom bleed sub clipbottom sub abs ys mul 1 le and
- {gsave left bottom moveto cmj grestore} if
- left bleed sub clipleft sub abs xs mul 1 le
- top bleed add cliptop sub abs ys mul 1 le and
- {gsave left top moveto 1 -1 scale cmj grestore} if
- right bleed add clipright sub abs xs mul 1 le
- top bleed add cliptop sub abs ys mul 1 le and
- {gsave right top moveto -1 -1 scale cmj grestore} if
- right bleed add clipright sub abs xs mul 1 le
- bottom bleed sub clipbottom sub abs ys mul 1 le and
- {gsave right bottom moveto -1 1 scale cmj grestore} if
- restore